home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 2
/
Deutsche Edition 2.iso
/
mac
/
PROGRAMME
/
MathReader 2.1 ƒ
/
Color Movie
< prev
next >
Wrap
Text File
|
1991-04-16
|
10KB
|
114 lines
(*^
::[paletteColors = 128;
fontset = title, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, M7, bold, L3, e8, 24, "Times";
fontset = subtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "New York";
fontset = subsubtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, e50, 14, "New York";
fontset = section, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 14, "New York";
fontset = subsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 12, "New York";
fontset = subsubsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 10, "New York";
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = input, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, 12, "Courier";
fontset = output, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, "Courier";
fontset = message, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, 12, "Courier";
fontset = print, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, "Courier";
fontset = info, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l35, w160, h162, 12, "Courier";
fontset = name, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, 10, "Geneva";
fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = Left Header, nohscroll, preserveAspect, 12, "Times";
fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times";
fontset = Left Footer, preserveAspect, center, 12, "Times";
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Geneva";
fontset = clipboard, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "New York";
fontset = completions, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, 12, "New York";
fontset = special1, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, 12, "New York";
fontset = special2, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, 12, "New York";
fontset = special3, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, 12, "New York";
fontset = special4, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, 12, "New York";
fontset = special5, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, 12, "New York";]
:[font = title; inactive; preserveAspect; startGroup; ]
Spinning Stellated Icosahedron
(for color monitors)
:[font = text; inactive; preserveAspect; ]
This Notebook contains an animated ÒmovieÓ produced using built-in Mathematica functions and a standard Mathematica package. To show the movie,
¥ Scroll until the first graphics cell is completely visible in the window.
(The movie is shown in this cell.)
¥ Double-click the first graphics cell to start the movie.
Click again anywhere to stop the animation.
;[s]
5:0,0;67,1;78,0;105,1;116,0;380,-1;
2:3,14,9,Times,0,12,0,0,0;2,14,9,Times,2,12,0,0,0;
:[font = text; inactive; preserveAspect; ]
See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction. Mathematica generates all graphics in PostScript, but the images here were saved as bitmaps to conserve disk space.
;[s]
5:0,0;13,1;29,0;129,2;141,0;246,-1;
3:3,14,9,Times,0,12,0,0,0;1,14,9,Times,1,12,0,0,0;1,14,9,Times,2,12,0,0,0;
:[font = postscript; PICT; formatAsPICT; output; inactive; Cclosed; dontPreserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; startGroup; pictureID = 29265; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 5050; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 13715; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 19388; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25199; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7923; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 24329; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 15271; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7734; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9024; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 29355; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2655; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4077; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 18271; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23528; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4166; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7056; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9504; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 28844; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25330; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8673; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23027; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 27967; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 30683; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 26434; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 879; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 3447; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 31372; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8188; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4618; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 929; animationSpeed = 8; ]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; endGroup; endGroup; pictureID = 1810; animationSpeed = 8; ]
^*)